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| DELEMAIN 185° -1 :38:21 AX-11 Bliss-32 v4.0-7 p 1 
Fak ath rit ey OM yt 4 PT ES age 4) 
D001 0 MODULE delemain ( ' STARLET Native File Deletion Utility 
if ; iDENT = 'v04-000', 
MAIN = deL$main 
, ADDRESSING MODE {EXTERNAL =GENERAL) 
= 


BEGIN 
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ie COPYRIGHT (oD 1978 1980, 1982, 1984 BY 

ie DIGITAL FQUIEN T CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNI HED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERNS OF rsyce Lic NSE AND | with THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI§ SOFTWARE OR OTHER 
ie COPIES pinEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS MEREBY 
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'@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'e AND arin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RcLIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA. 
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for PURGE into this module. 


v03-010 $HZ20013 Stephen H. Zotousk{. 20-F eb-1984 
Add support for sticky searchl 


v03-009 $HZ0012 ste ephen | H. Zalewski, 27-Dec-1983 
Move the defaulting o tile name and type for SPURGE into 
OCAL instead of GLOBAL. 


sts. 


1 
¢ lee 
: FACILITY: DELETE 
5 ; ABSTRACT: 
: This utility program deletes one or more user-specified files. 
3 ENVIRONMENT : 
41 i VAX/VMS operating s system, unprivileged user mode utility, 
$g : operates at non-AST level. 
46 AUTHOR: Stephen H. Zalewski, CREATION DATE: 10-Aug-1982 
46 Modified by: 
4 : v03-011 sures Stephen H. Zalewski, 15-Mar-1984 
4 ' Je bd 4 ARSE call to parse with no 1/0. Move all wild card 
aulting 
' 
' 
‘ 
‘ 
‘ 
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v03-008  appedty step ephen H. Zalewski, 31-0¢ t-1983 
net modify pointer new related name related name block. 
his $s now done in lib file_scan. 


v03-007 $H20010 poroge Se hi a+ ki, 25-F eb-1983 
If user issued a 5S with the /LOG qualifier, 
les were purged. me Ay @ message to the user 
reporting this. 


v03-006 $H20009 awe 4. Esteves t 11-Feb-1983 
Changed LibSv_caf_uic to LibSv_caf _byowner. 


v03-005 $HZ20008 Stephen H. Zalewski, 29-0ct-1982 20:4 
Placed all routines” former residing he DELSPECS. 834 ne 
this module. Modified lete to use the common qualifier 
Library package. Use LibSfile_scan to do all wildcard 


tsa 
v03-004 sul Stephen H. Zalewski 6-Sep-1982 18:53 
Fix y= that incorrectly reported block size of a file. 
v03-003 $H20006 Stephen H. gletevent. 26-Aug-1982 yy 


Backout def ulting of ve version number for DELETE. Fix 
introduced SHZ than ed Sethe ELE dangling directory 

f ETE command w 

~Aen if a file is opened 

because of /$tnce que EFORE or Ott: qualifiers ie present, 
leave it open until we actually delete it te 9p ze 

the number of FAL jobs ge the to do the job . case 
we are doing this over the net. 


v03-002 $HZ0005 Stephen H. Zalewski, 10-Aug-1982 21:04 
Extensive rewrite to use new CLI. ld card specs ore now 
supported for Aine qualifer. Info messages for 
now contain block size of file and total files ideteted/purged 
are now or Sates. Rewrote the way /CONFIRM is done. Rewro 
condition handler. Explicit version number is no longer 
neede Tor DE ETE. (default is now °’;0°'). Rewrote error 

handling routine(s). 


v03-001 $HZ20004 Stephen H. Zalewski, 23-Mar-1982 Ra 30 


Have correct version number displayed when /CONFIRM is 
used and version number is negative or zero. 
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1 BRARY ° IBRAR ARLET.L32'; ' yaniv common definitions 
QUIRE * Re ELE? bors ! COPY Literal definitions and macros 
1 
1 FORWARD nos hepa 
1 del !' Main DELETE ffte"e routine 
1 delete. tile : NOVAL i Deletes one 
1 del st t_cadqual : NOVAL ' Get command bine ond pe 
1 del ile ! Obtains the input file napect cat fon and parses it 
1 del search. 7 cers NOVALUE, ' Error t qoorgneg for a 
1 : Condition handler for errors and messages 


Pa a ae : NOVALUE; Handles errors on RMS file functions 


EXTERNAL TINE 


purge. s Purges files related to one file specification 


NOE UP 


files, ' 
pur “ods! directory, ! Purge an ODS-1 eiroctery lost. 
cli$get_vatue, ' Get qualifier value 
t} soresent. ! Determine if gues titer is present 
LibScvt_dtb, ! Converts an ASCII stein to = integer value. 
Libsfile econ ' Search wilecore speci cation 
LibSqual“file “match, ' Check to see if a file should be deleted 
Lib$qual-file_parse, ! Get common command qualifier 
LibSset_erase; ! Mark a file for erese-en-delete 
EXTERNAL 
version | 
LibS_filfaimat, ! File failed to meet criteria 
Lib$_quipro; ! Quit processing 
| 
GLOBAL 
scan_context : INITIAL(O), 
del$context, Context parameter for RTL routin 
44 del$cli oStatus : rom Pee 4) INITIAL (0), DELETE status word used by CLI interface 
45 INIT (1) r of versions to keep duri ‘ | 


del S$keepver_val : 
delStites. “deleted : INI TEAL (0. 
qotetitenats deleted, 
del$file stze, 
delSexit-status : SBBLOCK (4) 

NITIAL (ss$_normal) 
infile_desc : LOCK CdscSc_s_bind; 


oral “Jeteted | 
Total number of files purged S or deleted 
Total number of bloeks de | 
Block size of file being dsisted 
Holds most severe error code | 


CLI input file descriptor block 


* 
a 
° 
© 
° 
° 
* 
° 
. 
oe 
° 
oe 
. 
oe 
© 
. 
7 
e 
. 
° 
. 
© 
. 
a 
7 
e 
. 
° 
. 
o 
7 
oe 
. 
o 
a 
a 
* 
o 
o 
* 
. 
° 
- 
ae 
. 
e 
. 
eo 
. 
o 
. 
a 
. 
os 
. 
° 
. 
° 
. 
~ 
. 
& 
+ 
° 
. 
o 
. 
° 
. 
2 
° 
° 
+ 
© 
~ 
° 
7 
a 
° 
° 
7 
e 
. 
° 
7 
a 
7 
. 
,. 
. 


ee a a ee a ee ed nd od od = 


Prre RE pee ery ee cee ee Pe Ne! ew ey eee 8 
Pre 
MFwn— 


1 
1 
3 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
i 
1 
1 
i 
1 
1 
1 
1 
1 
1 


Fi Bae iet ce A a 


a 


SS SSNS ARANILSSSIETFORIS SSNS AEA 


ee a a 8 a at a a 9 Ss 8 4 Fb we Ss 4 bs a be dd nd a as Pt 


RESRLSSELESLANS 


wvuvuvv 


PIPPI IAIRIFIPIRIAIAIAING RIAD PIRI RDI et et a ad to ed at at at td od ts a 8 ss 8 8 ss = 9 9 2 9 ss ss 9 4 4 9 9 


hab GEE YOCUTEPGENGBENEGZ43.. 8 sh 


ROUTINE delSmain = 


oe 
: Functional description 


fore routine Se the centret conten routine rer the DELETE utility. 
that perform each Teolsek Weaetton te astetinn onl purging ?11e8. 

i Calling sequence 
delSmain () 

i Input parameters 

i none 

i Implicit inputs 

i none 


none 
i Implicit outputs 

delSexit_status - set whenever an error occurs 
i Routine value 

Most severe error encountered during processing or SS$_NORMAL 
i Side effects 


' 
' 
' 
' 
‘ 
' 
‘ 
' 
' 
' 
' 
‘ 
1 
' 
' 
' 
: Output parameters 
i 
' 
‘ 
' 
‘ 
' 
1 
£ 
‘ 
' 
‘ 
t 
: The specified files are deleted. 
f) 


BEGIN 
LOCAL 
nfile_name : VECTOR framgc maxrss, BYTE], ! File @ none after open 
infile_xname ECTOR Cnam$c_maxrss, BYTE], | File name befo “i open 
infile fab FAB_DECL, i peace. efor ipa file FAB 
infile_nam_blk SNAM ( i Fil 
RSA = infile_name, i Address Tr ten th oh the 
RSS = nam$c_Aaxrss, i e name after 
ESA = infilé_xname i ner t and length rs the 
ESS = nam$c iaxrsss, i e name before open 
infile_xabdat : SXABDAT (), i pevertien s 
infile-xabpro : SXABPRO (NXT = infile_xabdat), Sratuastae MAB (date/time XAB chained to this x 
status; ! General routine return code 
EL 
process_loop; ! Label for file processing loop 


ve 


IEE EEL BELEN, | 


ENABLE condit_handier; ! Enable a local handler. 
} deiSget_cmdqual (); ! Get the command qualifiers. 
1 : 
1 ! The venerett’ of this routine is executed for each 
; : file specification supplied by the user. 
1 . 
1 WHILE true b0 ! Beginning of repeat loop 
1 process_\ . 
status = delSget_file ( intite. fab, } Get a file Pass the fab 
e“nam_ blk, the address of the NAM block | 
ntile> “xabpro); pa the address of the XAB chain. 
IF .status EQL no_more_ tiles ! If there are no more file specs, 
THEN EXITLOOP? } then exit the file spec processing loop. 
If .status EQL bad_version ! If bad vere 7 specified 
THEN EXITLOOP; } then quit 
If NOT .status ! If the tile specification wasn't okay, 
THEN LEAVE process_loop; : then go get the next one. 


' ' 
: Perform DELETE or PURGE processing for this file specification. 
, | 


If ogelScli_s s Céel$y. apurgesce cad) ! If this is a PURGE command 
THEN (tbs te. scan( ale te ‘. i “then call purge routine with addresses of the FAB” 
pu 
purge Tiles, error, | 
scan an context) 
ELSE LibSfile_scan(infile_fab, ! otherwise delete the files. 
elete_file, 


del$search_error, 
scan context); 
THEN EXTTLOOP; ! then, stop 


If .version_list . ae 9 ! Make sure all ODS-1 files are purged. 
THEN purge_ods!_directory(version_list); ! Delete old versions 


END; ! End of ‘WHILE 1 DO’ file spec processing loop. 


| 
If .del$Scli_status Cdel$v_cntri_z_stop) ! If the user said <control-2> to a delete contivact | 
| 


If this was a PURGE, no files were purge, and the user said /LOG, then 
notify the user. 


IF .del$cli qirocusldetsy purge sc cad) AND ! If this was a PURGE command 
(.del$tites sieleted € eG an, ! and no files pureed. Tor. this file spec, 
gdetscls. status(del$v_log_asg one /LOG was set 

' 


- § 
put_message(msg$_nofilpurg,1,$descriptor('?')); output message saying so 
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MAIN fe 1 Ax-11 Blis v4. A 4 P 6 D 
13: sen 1944 3: i$: 4 DELETE. sre bee ceMA IN.6 533-1 a! (3). v 
‘ 
! If more than one file was DELETED or PURGED, and the user said /LOG, then 
; 
6 ; no notify the user of the number of files deleted/purged. 
If "egtsael i_status Cdel$v_log_ msg) AND ! If /LOG qualifier present 
(oelstTies “deleted era ty ° i “and more thant one file deleted, 


~~ 
vw 


og message (msg$ NW ro tethle deleted, ! then print total number of files deleted. 
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-del$blocks_deleted); 
75 | 
f — -delSexit_status OR stsS$m_inhib_msg; ! EXIT with no message 
eTITL 


DE rary 
«IDENT \v04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE 2 
D0000 P.AAA: .BYTE § 
6 


—_— >. 
See Ss 
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-BYTE C2) 
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-LONG e 
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oELEMAIN HSsseoctoge @5:34:2) YaReHt 81 f04e32 ve.00743 | 3 
4 LONG {2) 


nae HF Ie 


5 


of 
P.AAE: .ASCII \?\ 
-BLKB 3 
P.AAD: 


“LONG 1 
eADDRESS P.AAE 
-PSECT S$GLOBAL$,NOEXE,2 
00000000 00000 SCAN_CONTEXT:: | 
.LONG 0 | 
00004 DELSCONTEXT:: | 
-BLKB 4 | 
00000000 00008 DELSCLI_STATUS:: 
00000001 0000 DELSKEEPVER. VAL: : 
00000000 00010 DELSFILES DELETED: : 
00014 DELSBLOCKS DELETED:: 


-BCKB 4 
00018 DELSFILE_SIZE:: 


“BLKB 4 | 

00000001 0001C¢ DELSEXIT_STATUS: : | 
00020 INFILE_DESC:: , 

-BLKB 8 

.EXTRN PURGE FILES, PURGE ODS1_ DIRECTORY 

-EXTRN CLISGET_VALUE, CLISPRESENT 

“EXTRN LIB CVT“DTB, CIBSFILE_SCAN 

-EXTRN LIBSQUAC_FILE_MATCH 

-EXTRN LIBSQUAL“F ILE-PARSE 

-EXTRN LIBSSET ERASE VERSION LIST 

SEXTRN LIBS_FICFAIMAT, LIB$_Q01PRO 

-PSECT SCODES,NOWRT,2 


oELEAIN HSoseortoue @5:88:2) YARSIL OL tng=2 we.0-743 Page 
O1FC 00000 DELSMAIN: 


WORD Save R2,R3,R4,R5,R6,R7,RB 3 0254) 
8 6 99 ROVAB «LIBSSI rb : | 
MOVAB VER LON §t, a7 : 
e  oReee Oe HOVAR oh20(3P sneer: teen 
seit Bae lig Le te ETE PEE .) 
$8 cE 0134 f novcy The -Raane wh Ae ELE An NARS BLK#12 ; 
0058 «BF O65 CF § C move 300" P.AAC, #0 ra ee ENF ILE _XABPRO : 8303, 
AE 5 ef 9 MOVAB uF ILE XABDAT, INFILE_XABPRO+4 : | 
6D 00A FO MOVAL : 0305 | 
CF FB CALLS #0, DELSGET _CMDQUAL + 0314) 
E 0 1$:  PUSHL_ SP ; 0326 | 
88 CE OF PUSHAB INFILE_NAM_BLK : 
EC F 8 PUSHAB INFIL : 
0000v cf FB CALLS #3, DECSGET FILE F 
¢ i) MOVL RO 3 
0 D4 CMPL STATUS. 3: 0327 | 
44 ; BEQL 4 $ 
02 2 0 CMPL = STATUS, #2 + 0329 
F 13 BEQL 4 F 
e1 2 é BLBC STATUS, 1$ + 0331 
OF 66 1 BBC #3, DELSCLI_STATUS, 2$ ; 0338 
FB AG OSE PUSHAB SCAN CONTEXT : 0339. 
OOv CF OF PUSHAB DELSSEARCH_ERROR : 
000000006 00 7 PUSHAB PURGE FILES : 
FB AG OOF 28: PUS SCAN_CONTEXT > 0343. 
OOv CF 9F 7 PUSHAB DELSSEARCH. ERROR ; 
000v CF 9F 000 PUSHAB DELETE_FILE ; 
OF E 9F OOO8F 38: PUS INF ILE~FAB : 
000000006 00 4 FB 00C CALLS #4, LIGSFILE_SCAN : 
OF 64 3 £0 00C BBS #5, DELSCLI_STATUS, 4$ : 0368 
6 ; TSTL VERSION_LIST : 0351 | 
9 BEQL Ss : 
bd PUSHL R : 0352 | 
000000006 00 1 FB 000 CALLS #1, PURGE_ODS1_DIRECTORY : | 
AS 11 00d ere ; 0321 
18 4b 05 £1 QOOAD 48: BBC #3, DELSCLI_STATUS, 5$ : 0361 | 
08 ig iF 0 Ist _ ygtepes DELETED ; 0362 | 
28 66 oY fg 108 BBC _—s #1, _-DELSCLI_STATUS, 68 : 0365, 
000° cF 9F 000E PUSHAB P. AAD : 0365 | 
1 DD 0008 PUSHL =i 2 | 
00931228 8F 0D 000 PUSHL #9638445 ; 
68 ; FB 10 CALLS ‘ LIB$S1GNA F 
15 E1 O00C9 58: BBC * DELSCL TUS, 6$ F 037 | 
1 08 AG CAPL Bite UL staqus “fi ; 0373 | 
7E 0B ag 7D i MOVO  DELSFILES_DELETED, -(SP) : 0376 
DD 006 PUSHL ; 
“bene B ii CALLS ee 11085 1GNAL 
50 16 A6 10000000 8F C3 DE2 68: BISL rabeeseese. DELSEXIT_STATUS, RO : 0379 | 


+4 
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RET : 
0086 78: WORD Sa ave nothing : $305 
43 LAL : | 
0 SHL : 
7E 04 AC 7D OO0F MOVa 4(AP) : 
0000v CF 03 FB r6 CALLS a3, tonp it. PAANDLER : | 


3; Routine Size: 252 bytes, Routine Base: SCODES + 0000 


; 278 0381 1 
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OUTINE delete_file (fab_block) : NOVALUE = 


3 


wn 


a 
Functional description 


wn 


This routine deletes one file. 


If the user specified the gee he qualifier, the name of the file is output to 
SYSSOUTPUT and the user can advise whether the file is to be deleted or not. 


Calling sequence 

delete_file (fab_block.ra.v) 
Input parameters 

fab_block - The FAB block for the file specification 
Implicit inputs 


WOODOODODOOO0O 


ooooo oo 
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Bits are tested in the status word: 
LOG_MSG - whether each deletion is to be logged on SYSSOUTPUT. 
Fields in the NAM block are used to log the deletion: 


RSA - address of the resultant name string 
RSL - length of the resultant name string 


Output parameters 
none 
Implicit outputs 
none 


At te as) 2 


Routine value 
novalue 
Side effects 
Errors are signaled. Files are deleted. 
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BEGIN 
Pp 
fab_block : REF SBBLOCK; 
BIND 
4 nam_block = .fab_block Cfab$l_nam] =: SBBLOCK; ! Associated NAM block address. 
LOCAL 
prompt_desc : VECTOR (2). ' String descriptor for prompt args. 
0438 name_desc : VECTOR (2), ! String descriptor for file name. 
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status; 


IF .del$cli_status [del$v_cntrl_z stop) 
THEN RETURN; 


AX-11 Bliss-32 re ents 
DELETE.SRCJDELEMAIN.B32;1 


! Holds RMS status codes. 


! If_user has responed to /CONFIRM prompt with 
! CTRL/Z at some point don’t delete any more files. 


If the /LOG bit is set er OPEN_FILE bit is set, then open the current file to get 
file, An error 


the block size of the 
code of RMS-FNF at this point means that we 
entry ‘‘no such file’, and we want to delete 


If .del$cli_status 
-delScli_status 
THEN 


BEGIN 
fab_block Cfab$l_alq) = 0; 
SOPEN (FAB = .fab_block); 


del$v_log_nsg] 
delSvropen tiled 


have a gengl ing directory 
these if possible. 


' IF /LOG oyel ' tier was given 
! or OPEN_FILE bit is set, then open file. 


! Init block size of file to 0 in case SOPEN fails. 
! Open the fil 


e. 
get filesize = .fab_block Cfab$i_aiq); ! Get block size of file (0 if SOPEN failed). 


If the /CONFIRM quot iter was specified, ask the user whether this file 


should be deleted. If the user says no 


then 


ust go process the next file. 


Also, if user answers CONTROL/Z stop alt processing. 


name_desc(0) = .nam_block(nam$b_rsl); 
name_desc(1] = .mam_block(nam$l_rsaJl; 
prompt_desc(0) = name_desc; 
status = LibSqual_file_match( delS$context, 
fab_block, 
$descriptor ( 


preset,.n08e. 
If NOT .status 
THEN 


BEGIN 
If .status EQL Lib$_quipro 
THEN 


del$cli_status 
If (.status NEQ Lib -qyipro) AN 
(.status NEQ LibS_filfaimat) 


del Stile error(msg$_tilnotacc,.fab_block); 


SCLOSE ( FAB = .fab_block); 
RETURN; 


Delete Br, oyrrent file. If /ERASE is reaues 


If the $s m because the /LOG qual 
with the delete bit set. Otherwise siapl 
If the erase or delete doesn't work, jus 
will go on to process the next file. 


' 
i 
dol Sv catrl z.stop) . 
i 


call RMS to per fore he 
return. The call 


! Make descriptor potas ing to related 
! file name in case /CONFIRM requested. 


! Context pointer. 
! Fab pointer. 
! No file name. 
"!tAS, delete? (N):"), ! Prompt string. 
! Prompt arguments. 
! No prompt routine. 


If user said CNTRL/Z 

i stop processing. 

If user said CNTRL/2Z 

or file did not meet criteria 
then do not report an error. 


' Ask RMS to close the file. 


ted, mark the file for erase first. 
er was requested, just close it 

rase function. 
ng routine 


<2 | 


3 

i$. Se x-1 s$-32 V4. Pa 12 

1en8ee=iShe FBitbiee «EOE e Te SAR IDECEMAIS 033-1 neal « 
3 ge ! 
3 5 
3 +4] i Jf ,detScl{stotus Cdel$v_erase] ! If erase requested 
; $9 EGIN 
3 38 Hiety (F fad. block); ' close the file so we can do it. 
; 6 § status = bSse erase (name desc); ! do it. 
:; & fab_dlock( fab t* Sts] = ,status; 
 @ 3 fab-block(fab$i-stv) = 6; 
: ¢ 5 END; 
; ¢ 5 F ,status 
3; 6 BEGIN 
3; 6 1 IF .fab block CfabSw_ifi] NEQ 0 ! If the file is open, 
: 293 2 é sae | 
: 411 ig 4 fab_block f fobee yitt2 = TRUE ! then set the deletion bit, 
3 tig 514 4 status = spL0 sft itl e "ton block); ' and ask RMS to close and delete the file. 
3 $12 316 ? fab_block Cfab$v_dit) = FALSE; ' Turn off the delete bit to avoide side effects. 
3 4615 1 | 
3 238 218 status = SERASE ( FAB = .fab_block); ! Erase the file. 
: ols 336 ~_ | 
; 419 3 : IF NOT status ! If the ERASE function fails 
: 421 5 BEG 
3; «6 § 524 BET ie error ( msg$ filnotdel, -fab_block); ' then report an error to the user, 
3; 6 525 SCLOSE (FAB=.fab_block); ' close the file quietly 
3; 626 5 $ RETURN; ! and reburte | 
; 425 5 END; 
: 059 355 5 | 
3 : 3 2 : If the /LOG qualifier was given, report the deletion. 
: 6 5 : 
3 F > i 
3 ¢ ; 3 THEN ee ere ay ! If successful deletion and  Soggtng going on, 
3; 4 535 BEGIN i then revert the delet 
; 4 5 delS$blocks_deleted = .del$blocks_ deleted + -del$tile pions * Keep runnin total of blocks deleted 
; 435 5 del$files_ deleted = .del$files deleted + 1; i Ingrement “num y er of files deleted’ counter 
; 3 Boe put message ( nsg$_fildel, eae og ee 
: 6 Pp 32 = ' two arguments com ng. gs are 
; 4 P 0541 name desc, ‘ the file name descr eter and 
3: 440 245 -delSfile_size); ! the block size of the file. 
5 ree: $7 END; 
+ 66 3s END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
F 7% 65 6C 65 64 20 2C 53 41 21 OCO P.AAG: .ASCII \!AS, delete? (NJ:\ : 
4€ 5B 20 SF 65 65 6C 65 64 20 2 3A gh p9e co 


Ba Be Se ee Oe Be Se Se Se Se Fe Se Se Se Be Se Se Se Se Se Se Se Sete Se Se Se Ge Se Ge Se Se Se Ge Se ee SH Se Se Se Se ae Se FH Se Se ee Fe Oe Se ee SH Se Se Se ee ee 


oeLEAIN WReseo-1906 25:38:21 yAtTT a isg=s2, v4 0-7 


1 -BLKB 
90000011 Boone P.AAF: LONG i, 
’ 8 “ADDRESS P.AAG 
.EXTRN SYSSOPEN 
SEXTRN SYSSERASE 
-PSECT $CODES,NOWRT,2 


007C 00000 DELETE FILE: 
WORD 


SYSSCLOSE 


Save R2,R3,R4,R5,R6 
¢ 6 99 MOV 1B$_QUIPRO, R6 
G ' MOVAB SYSSTLOSE, AS 
4 CF MOV DELSCLI_SfATUS, R4 
0 SUBL2 #16, 
0 A MOVL FAB BLOCK, R2 
8 A MOVL 40(R ), R 
01 0 BBC #5, DELSCLI_STATUS, 18 
04 64 01 BBS #1, DELSCLI_STATUS, 2$ 
64 TSTB C$CLI_STATUS 
1 BGEQ 
10 A CLRL =—-_: 16 (R2) 
3 PUSHL 
000000006 00 CALLS # $ySSOPEN 
10 Ab 9 A VL: 16(R2), DELSFILE_SIZE 
6E A MOVZBL 3(R3), NAME_DESC 
04 AE 4 A vL (3) DESC +4 
8 AE 6 VAB NAME DESC, PROMPT_DESC 
E CLRL =(SPJ 
OC AE PUSHAB PROMPT_DESC 
0000' cr 5 P.AAF 
5 CLRL 0s =< SP) 
5 PUSHL R2 
FC OG PUSHAB DELSCONTEXT 
000000006 CALLS #6, LIBSQUAL_FILE_MATCH 
MOVL RO. STAT 
BLBS STATUS, 
0 MOVAB LIBS _QUIPRO, RO 
0 CMPL  §TATOS, RO 
BNEO 4$ 
BISB2 #32, DELSCLI_STATUS 
0 MOV L18$ QUIPRO,~RO 
CMPL stato ‘ 
A BEQL 1$ 
50 000000006 MOVAB LIBS_FILFAIMAT, RO 
CMPL STATOS, RO 
§ BEQL 1$ 
PUSHL R 
00931338 Ff PUSHL #9638712 
4F BRB 10 
18 64 BBC #4, DELSCLI_STATUS, 6$ 
: PUSHL Re 
65 CALLS #1, SYSSCLOSE 
i PUSHL SP 
000000006 99 CALLS #1, LIBSSET_ERASE 
0 MOVL RO, STATUS 


_—_— ee - - OO  eee O e 


i lf 


0382. 
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EMAIN gE. ep-1 38:21 AX-11 Bliss-32 V4.0-74 P 14 
raat 127808-1382 $3:78:24 EOELETE. SRC IDECEMAIN.B 4 a9e 4) 
08 A2 5 DAG MOVL ATUS, 8(R2) 3 0503 
0c p? CLR 1etne) : 304 
28 5 > 6S: 6.8 ATUS, 9% + 0507. 
02 A Ist (Re) : 0510. 
0S a2 80 «BF B1S62 #128, 5(R2) : 0513 
: DD O00BA PUSHL R + 0514 
é Fe BC CALLS #1, SYSSCLOSE : | 
0 BF MOVL RO STATUS : 
05 80 BF BA Ce BICB2 #128, S(R2) + 0515) 
; > 00069 7S + + Osis. 
000000006 ¢ CALLS , SYSSERASE ; | 
D D MOVL RO. STATU : 
1 E D gs: BLBS STATUS, 12% ; 9531 
dD $: PUSHL + 0526 
009311FO &F DD OOODA PUSHL #9638384 : | 
0000v CF ; FB 3H 108 CALLS ne DELSFILE_ERROR pak 
65 FB OOOE CALLS #1, SYSSCLOSE : 
04 OO0EA RET : 05 
1D 64 01 €1 000EB 128: BBC #1, DELSCLI_STATUS, 13$ > 05 | 
Oc Ab 19 Ad CO OOOEF ADDL2 DELSFILE SIZE, DEL$BLOCKS_DELETED F 05 
08 A& 06 O00F4 INCL  DELSFILES DELETED ; 0537 
10 Ab pp 00F7 PUSHL DELSFILE_SI2Z : 0542 | 
06 «OA F OOOFA PUSHAB Dest 3 
DD O00FD PUSHL a2 ; 
00931323 8F DD OOOFF PUSHL #9638691 : | 
000000006 00 4 FB 00105 CALLS #4, LIBSSIGNAL F | 
04 0010C 138: RET > 0545) 


; Routine Size: 269 bytes, Routine Base: SCODES + OOFC 


3 466 0546 1 


| 
| 


Vosen-t9ae @5:88:2] YMETT BLing=s2 weio74 Page 1S 


v 


3 7 1 ROUTINE del$get_cmdqual : NOVA 3 
: ca? 1 ee S$get_cmdqu LUE = 
; 6 Functional description: : 
: 6 1 i This routine calls the CLI to obtain the comnen¢ line. Then the routine ; 
; «6 1/ obtains the command-level qualifiers (i.e., options) from the : 
: : it : ; Command Language Interpreter. ; 
; 4 5 § i Calling sequence: | : 
4 i r’ 
: é : 4 : 7 delS$get_cmdqual () | : 
s 2 $9 } Input parameters | : 
3 $6) $¢ : none | : 
; te8 64 1 | Output parameters 3 
: i 1 f peewee Sea) 
3 466 ei | i 
; 46 eB ; Implicit outputs : 
; rh: 76 1/ DELSCLI_STATUS = poLezent command and qualifier indicators set by CLI. ; 
; $n) 7 } URGE_CMD flag set if this was a PURGE command. : 
; of ; Routine value | ; 
: 67% 1 novalue | : 
: 475 1 i : | : 
i hex 
; 478 BEGIN ; 
: 6 LOCAL ; 
; 481 bitmap, ! Contains map of qualifiers requested : 
; & status, : 
: ? char; ! Holds one character : 
: 685 CH of {LL CO. fects s_bin,_ infile_ desc); ! Make descriptor dynamic | : 
3 : infile desc dsc$b_Class) = dscSk _class 4; : 
; 4 : 
‘ 2 " Determine whether this is a DELETE or a PURGE command and get qualifers. : 
5 691 : 
3; (49 t_value($descriptor('SVERB'), ebb desc); ' Get commend é 
3; 49 MSRCHAR HAR(.infile desc Cdsc$a_pointer]} EQL *P*) ! If first letter is P : 
: 38 BEGIN : 
: 496 del$cli ~Statustdet§v_pur 9g-£ _cad) = true Note that this is a PURGE command : 
: 49 dels clizstatustdel$v_kee Tlosensenbthdectetetaet'h KEEP")) : : 
; 4 3 
3 del$cli_status(del$v too e Cl {eresont¢ descriptor(' ERAGE? »); : 
; 1 del$cli-status(del$v_log_ msg) = cli$present ($descriptor('LOG 3 
; 502 del $cli=status del$v- “con?_prompt) = cli$present (S$descriptor(* CONF IRA); : 


MAIN 18-seo-1984 $3: 78:2) AX-11 Bliss-32 V4.0- os. 


14-Sep-1 DELETE.SRCJDELEMAIN.B5 


‘ 

i af any of the folowing @ quel ifers were specified, then always open the file 
i when we process it, is an optimization to cut down on the number of 
SOPEN's and SCLOSE's that must be done to delete or purge a file. 


if cliS$present (Sdescriptor (*BEFORE’)) OR cli$present (Sdescriptor(*EXCLUDE')) 
OR cliS$present (Sdescriptor(‘SINCE')) ve cliS$present ($descriptor('BY “OWNER R*)) 
THEN del3cli_statusl(delSv_open_file] = TRUE; 


WwnN— 


MEN" OOONO NE WN OVOOane 


w 


ate 

H 3 

; 505 JF ,detseli. status (del$v_keep) ! /KEEP present, so get its value 

3 et Teper. v iis Hast 94 ptor(*KEEP"), infite ieee? 

; status = Lib “inftte int le. esc (dsc reef : va value into Global variable 
H : org dst$a_po avers. keepver revels 

3 3% 61 if NOT .status OR exGet keepver_val Lea 6 s LEQ 0 then 

3 if 61 phe an error. 

; 16 2 2: MERI at 

; 51 51 : 

; 51 61 

3 9 51 bitmap= LibSm_caf_confirm OR LibSm_cqf_exclude OR ! Bitmap of qualifiers 

3 + 61 LibSm_cqf_before OR 1 ]ogence tas ince OR i “that the common qualifier 

3 31 LibSm_cqf_ cre ted OR LibSm caf_modified OR ! package is to check for. 

: Lib$Sm_cqf_expired OR LibSmicqf_backup OR 

3 1 LibSm_cqf- byowner: 

; § if NOT (status = LibSqual_file_parse(bitmap,delScontext)) ! Get common qualifiers 
; é SIGNAL_STOP(. status); 


-PSECT SPLITS,NOWRT ,NOEXE 2 
42 52 45 56 24 QOODC P.AAI: .ASCII \SVERB\ 
1 BLKB 


E : 
D00E4 P.AAH: :LONG 
D00E8 “ADDRESS P. AAI 


50 45 45 4&4 EC P.AAK: .ASCII \KEEP\ 
F eAAJ: aL 
F ADDRESS P.AAK 
4 P.AAM: ot \ERASE\ 


-LONG 
eADDRESS P.AAM 
P.AAO: met \LOG\ 


P.AAN: .LONG 
6 “ADDR SS P 
8 
C 


4D 52 49 46 


P.AAQ: Sek \CONFTRR\ 


P.AAP: .LONG 


tenes 


<9 


66 
66 
66 
66 


01 


01 


37 


50 45 


45 52 4F 46 4 


45 44 55 4C 43 , if 
se 
45 43 4€ 


52 45 GE 57 4F 


O3FC 


: ea CF 
é aie +44 i 

6E 0 

18 A 

1B AG 0 
18 : 
ee: 

50 BF 1¢ 


eek 
ds 
Aen o 
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00000 DELSGET_CMDQUAL : 
WORD 


AD MA HOW NOW ODO 


DFNOOMRNBORMRNONFNONO 


yBeseo-t96e 48:2) yayedt Liege we 0-742 


ADDRESS P.AAQ 
“ASC \KEEP\ 


ol 
; ADDR os P.AAS 
“BLK \BEFORE\ 
AD on S P.AAU 
eASCII = \EXCLUDEN 
BLES KB 

“ADDR att 

ot 

“TON 

ADDRESS P.AA 
ASCII \BY-OUNER\ 
«LONG 

eADDRESS P.ABA 


-PSECT SCODES,NOWRT,2 


¥S.06 R2, a. R4,R5.R6,R7,RERI 


$GET VALUE, R9 


Hs 88 R7 
I_STATUS, R6 


P), #0, #8, INFILE_DESC 


ILE _DESC+3 
best 


re 


° VALUE 
@INFILE sSESC ea, #80 


#8, DELSCLI_STATUS 


P.AAJ 
ai. CLISPRESENT 
DELSCLI_STATUS 


i CL ISPRESENT 
DELSCLI_STATUS 


pA ¢ ISPRESENT 
RO, » #1, DELSCLI_STATUS 


ai. + CLISPRESENT 


—O2EwD--Bz BBVOOVMSY 


PMHMOZM Onn. 


DELSCLI_ TATUS 
uit STATUS, ~3$ 
ae 


P.AA 
ae $GET VALUE 
DELSKEEPVER_ 


1 
: 18 
000000006 
2. 04 
18 
00931114 
000000006 00 
6E O1FF 
ff 
ate 
000000006 00 
54 
6? 
, 64 
67 
13 
A) 
7? 
A 
0084 
84 
66 80 


; Routine Size: 236 bytes, Routine Base: S$CODE$S + 0209 


s ta? 0638 1 


tbeseoctgne 25:48:21 yatett 
Bi IEEE 
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$$-32 V4.0-7 
CJDELEMAIN.B 


BC STA 
1 LSKEEPVER_VAL 
SHAB INF ILE DESC 
PUSH 38164 
CALLS #3, LIBSSIGNAL 
pace Ae 
CALLS a. LIBSQUAL FILE_PARSE 
MOVL RO, STA 
Bes sthrus, 4 
CALLS #1, LIBsstoP 
CALLS #i, LISPRESENT 
Bs Bia 
CALLS #i, CLISPRESENT 
PUSHAB POAAK 
CALLS #i, CLISPRESENT 
BUSHAB P.AAZ 
ALLS #i, CLISPRESENT 
BLB 


C 
C 
1 $82 #128, DELSCLI_STATUS 


3.1 


3 
1b-sep-1 :38:21 AX-11 Bliss-32 V4.0-7 e 19 
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ROUTINE del$get_file (fab block, nam_block, xab_chain) = 
tee 
: Functional description: 
i This routine gets an file specification and all 
; related qualifiers from the Command Language Interpreter. Then 
: the file specification is parsed. 
i If no more May erect steatvens are available, this routine just 
: returns successfully. 
; Input parameters: 
i fab_block - the FAB to use for this specification 
; nen_biock = the NAM to use for this specification 
H xab_chain = the appropriate XAB block's 
; Implicit inputs: 
infile_desc - CLI block for file specifications 
Output parameters: 
none 
Implicit outputs: 
i The fields of the FAB and the NAM block are filled in according 
: to the CLI call and the SPARSE function call. 
Routine value: 
i TRUE - success 
; NO_MORE_FILES = success, no more file specifications 
: NO_FILE - failure 
jee 

BEGIN 

fab_block : REF SBBLOCK, ! FAB to use with file 
nam_block : REF SBBLOCK; ! NAM to use with file 
AL 
status; 

' 
: Get a file specification from the Command Language Interpreter. 

IF NOT cli$get_value(Sdescriptor('INPUT'), infile_desc) ! If no more file specs are coming, 

THEN ! then return successfully, without a file. 


RETURN no_more_files; 
SFAB_INIT ( ! Setup the file FAB as follows: 
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38 P FAB = ofa block, FAB ecereee is the input parameter. 
Pp FAC = <GETS, : Input file. 
Pp DNS = : No Cofeuts file specification. 
P FNA = .infile_desc dsc$a_pointer], i Move the file name address 
Pp FNS = .infile desc [dsc$w_length], ; and Length into the file FAB block. 
P FOP = <NAM> ; Open by name block. 
& NAM = -nan_bLock ' NAM block address. 
KAB = .xab-chains; i XAB block address. 


i Call RMS SPARSE function to parse the file spec fication. This resolves logical names and 
! determines if there are wildcards present, or explicit named fields present. 


BSSELERRENLS SRLS 


BB PB BBB FMAM B&B MMP PIPIPIPIPIPIPIPIPIPIIPI AMAR IPUPRIPIPIPIPUIPIPIPIPIPIPIPIPIPOPURIPO 

ae: : 

oe 

2 

een 

=>: 

@:- @ 

o 8 


acess 
WP 


1 nam_block(nam$v_synchk] = true; 
t 1 status = $PARSE~( FAB = .fab_block); ! Call the RMS file-spec parsing routine, 
61 1 nam_block(nam$v_synchk) = false; 
2 ; F - T .status 
61 1 ecei® ' If unsuccessful then 
61 1 delSfile_error (msg$_filnotdel, .fab_block); ! signal an error and 
e : 3 no_file; ! Return an error to the caller. 
61 1 ; 
6 


' Don’t allow version number specification for a PURGE command. If the file 
ile type were not specified on the PURGE command, default to 

In any case, always add a version ‘;*', A DELETE command, 

ontrary, requires an explicit or wildcard version number. 


BNOVESWN “OOO yOu fur 
MEW 0 OONOAUNE UN “OO ODOVNOufuwrn 


Si Pn i i ee te i ee ee 
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6 
é 
4 it zdelSclt_stetus Cdel$v_purge_cmd) ! If this is a PURGE command, 
6 N 
6 IF .nam_block Cnam$v_wild_ver] OR ! then look for version number 
° -nam_block Cnam$v_exp_ver ! ~—s specification. 
é nt gy ete e (msg$_purgever) ! If present, signal an error 
Vv Py e e e 

° ReroRn bad vers of: ’ ! ond return a error status code. 
es IF WOT .nam_block nansv ey name) ! If file name missing 

0 74 AND NOT .nam_block(nam$v_wild nang) 
641 74 AND NOT .nam_block naadv exp type ! and file type missing 
obg IS + Al -nam_block(nam$v_wild_type) 
Sti 744 BEGIN ! THEN 
645 745 fab_block(fab$l gre = ! Substitute defaults 
$66 74 UPLIT BYTE TZASCII ‘*.#;#'); 
oe me fab_block(fab$b_dnsJ] = 5; 
rk: 74 ELSE 
650 7 ? GeGin 
651 7 ab_block ffabst dna} = Pasar ze"ts ! Set default name string to ‘;*' 
652 752 fab_block [fab$b_dnsJj = 2; 


row 


<v 


se 
a3 


} 7 END; 
, ese 
; 6 7 § BEGIN 
3; 6 7 IF NOT .nam_block (nam$v_wild vers, AND 
3 2 7 NOT .nmam_block [nam$v =010, ver] AND 
3 7 NOT (.nam_block [nam$v_quo ted] AND 
: oe f ; THEN, -nam_block (nam$v_node)) 
: 66 ? 
3 rea) 18 4 ei shessage (msg$_delver); 
3 be¢) 3 A bad_version; 
: 882 ree eno; 
; $69 708 . 
3 oo8 A RETURN true; 
; 66 76 END; 
54 55 50 4E 49 0179 P.ABC: 
gi? 
8 000005 178 P.ABB: 
ae S43 
2A 38 2A 2E A ais P.ABD: 
00 00 2A 38 001 P.ABE: 


OOFC 00000 DELSGET 


57 0000° cf 9E 0000 
7 0D 
0000' CF 9F 09 
000000006 i i 
0 0 0017 
me a BS 
0050 8F 00 bE C O001F 
66 5003 F BO 00¢ § 
04 46 01000000 $F D00eC 
6 A6 § 000 
My Ae AC 0 0008C 
2 86 AE 000 
8 A 5 D yUY 
¢ A 04 A 000 
a 
g BD 0008 
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' However, is this is a DELETE command 
} and an explicit or wildcard version 
: number is not present 

1 


nd the file specification 
S$ not a network quoted filespec 


! then signal an error 
: and return an error Status code. 


! Return a success code 


-PSECT S$PLITS,NOWRT,NOEXE,2 
ASCII \INPUT\ 

-BLKB 

~ LONG 

eADDRESS P.ABC 
eASCI] \@.e58\ 
-BLKB 

eASCII = \3#\<0><0> 
-EXTRN SYSSPARSE 


-PSECT SCODES,NOWRT,2 


FILE: 


«WORD Save R2,R3,R4,R5,R6,R7 
MOVAB INFILE_DESC, R7 


PUSHL R7 

PUSHAB P.ABB 

CALLS #2, ¢ I1SGET_VALUE 
ROVE | #8, RO 

RET . 

MOVL. FAB_BLOCK, R6 

MOVCS #0,°(SP), #0, #80, (R6) 
MOV #20483, (R6) 

ROVE Herne1e, 4(R6) 

MOVE Ag fie) 

mvt kage gg 
MOVL R2, ~40(R65 

MOVL INFILE_DESC#4 44(R6) 
MOVE —s INF ' DESC. §2(R6) 
B1SB2 a8. (R2) 

PUSHL R 


<v 


; Routine Size: 219 bytes, 


770 1 
771 «1 


epeeed * 09 bh 
: iB 
o000v CF 009311F0 FB 
at 
ee A ; Ep 

E 
; 00931212 4 " 
: 7 
6 1 3 

6 4 

RE mr eG 
Hy! ~ 0000° ; 5 

1 

6 E 
tie he 
6 11 £0 
0093120A F OD 
000000006 98 0 4 
0 2 ? 
50 01 00 

04 
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Routine Base: 


SCODES + O2F5 


_- w 
ow 


6$: 


1en$ep-198e F2:ibsee — EDELETe*SReSDELEMAIN.650;1 


a. SYSSPARSE 

#8. B(R2) 

STATUS, 2$ 

#9638384 

‘ DELSFILE_ERROR 
#52, R2 

43, DEL SCL] STATUS, 6$ 
a3 , (Re, $ 

Cree 

a. Be 
#5. (Ro), 
#1 e 
e - 48« 
a, 8S ck) 
9$ 

P Abe 48(R6) 
$(R6) 

9 

) 

i ae », 7$ 
i, L 1B$S1GNAL 
#2. R 


#1, RO 
RO 


° 
® 


en 
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3 $73 ae ! GLOBAL ROUTINE del$search_error (fab_block) : NOVALUE = 
; 675 te 1 tee 
: 676 Ae : Functional description: 
3 $éf 58 1! This routine reports an error as a result of searching for the 
3 $78 ad : : next file to be deleted. 
3 re 780 1 ! Calling sequence: 
3 et 781 1! 
; 68 , § ; : delete_error (fab_block.ra.v) 
3 es , : ; : Input parameters: 
; 68 7 1! fab_block = the FAB associated with the file 
: 688 07 1! 
; 689 788 1°! Implicit inputs: 
; 690 789 1! 
; 691 790 1! none 
; 791 #1! 
; 69 0792 1 ! Output parameters: 
; 694 0793 1! 
3; 695 0794 1! none 
: 697 ee 1} penticte ont 
3 ! Implicit outputs: 
; 698 6799 1! 
$ 0798 1! none 
3 0799 1! 
; 701 0800 1 ! Routine value: 
; 70 0801 1! 
; 70 0802 1! none 
eS. 0803 1! 
3; 705 804 1 ! Side effects: 
3 5] 805 1! 
; 70 Bane 3 none 
; 708 0807 1! 
3; 709 0808 1 !-- 
; 710 0809 1 
3 ay 2 19 BEGIN 
3 at oai§ del$file_error(msg$_searchfail,.fab_block); ' Report specified RMS error. 
: 715 0814 END; 
0000 00 ENTRY DELSSEARCH_ERROR, Save nothing : 077 
% AC 0D PUSHL FAB pL ock 3; 081 
00931238 ¥ DD PUSHL #9638456 3 
0000v CF 2 FB CALLS #2, DELSFILE_ERROR ; 
04 0001 RET 3; 0814 


; Routine Size: 17 bytes, Routine Base: S$CODE$ + 0300 


; 716 0815 1 


WBReoctoge 25:38:27 yasest ouisg 


DELEMAIN.650:1 
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GLOBAL ROUTINE del$file_error (message_id, fab_block) : NOVALUE = 


tee 
; Functional description 


: This RMS error action routine sends an error message to the user. 
! Calling sequence 


—? 


MEUM —OOONOU Sw -0O0e 


—>— so 


del$file_error (message_id.rv, fab_block.ra.v) 


NOU 


! Input parameters 


i 
i 
message_id - The message code for the message to send. 

: fab_block - Address of the FAB block of the file for which the error occurred 
' 


Implicit inputs 

The associated NAM block. 

INF ILE_DESC = the CLI data block for the parameter 
! Output parameters 


Wer 


Sa i i i in ie i Me a, yn PM i en, I i ye 


' 
i 
' 
' 
‘ 
' 
i 
t 
i 
i 
i 
i 
' 
1 
i none 

4 

Implicit outputs 
; none 
Routine value 
novalue 
Side effects 

; none 

i 


OoOooocoocoo 
wetvtrtytytytytyty+yd 9 DD IPD 9 9 terete 
OOD NOAUNE WO OONOU Ew 


BEGIN 
fab_block : REF SBBLOCK; 
1 BIND 
§ nam_block = .fab_block Cfab$l_nam] +: SBBLOCK; ! Associated NAM block address 
bss LOCAL 
5 name _desc : VECTOR (2); ! String descriptor for the file name 


' 
: Fill in the file name descriptor with the most complete name possible. 
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it zen btock Cnam$b_rsi] NEQ 0 : If a resultant name string exists, 


oo 
—~ 
~ 


bisa 5HB:2) YAN Begs, va 0-742 Pave 6 


=3 


; i rane ~gest cis -nam block [nam$b_ esti then fill in the resultant name Length 3 
; ts -nam_block Cnam$l-rsa ! and address. : 
; ELS : 
3 If -nam_block Cnam$b_esi] NEQ 0 1 If RMS created an expanded string 3 
: f tos ; but couldn't open the file, : 
a. a yw F9} -nam_block (nam$b -031}: ! then fill in the expanded name Length 3 
: i : name_desc -nam_block (nam$l<esa : and address. : 
3 erwise, no name information is available. | 3 
: fg ELSE ! Otherwi RMS inf ion i ilable. | ; 
3 7 name yun fo} = e_desc bese Su. lLength];! So use the file name Length 3 
: r 9 pene e_desc e_desc [dsc$a “pointerd; ! and Length passed by the CLI. : 
3 73¢ , 3 
. ' . 
: a Signal the error condition. : 
; 795 : 
3 re SIGNAL ( ! Signal error with the following arguments: : 
; -message_id, : the message identifier, ; 
; 798 ae : the number of pqocses arguments 3 
; 799 : the address of inpu nage descriptor, : 
3 tab b_ cee fab$l “$154 ’ the primary RMS completion code, F 
3 a stv : and the scondary completion code. 3 
1 -fab-block Cfab$i<stvJ); i d th dary RM leti d 

3 08 3 
3; 804 END; 3 
00 ENTRY DELSFILE_ERROR, Save nothing ; 0816 | F 
5E 08 C SUBL2 #8, SP : : 
1 08 AC OD MOVL FAB BLOCK, R1 ; 0862. ; 
0 : Al p MOVL  40(R1), RO ; | ; 
AO TST8 3(R0) ; 0871. é 
0B 1 BEQL 1$ ; te, : 
6E 03 Ad 9A MOVZBL 3(RQ), NAME_DESC ; | ; 
046 AE A MOVL 4(RO), NAME_DESC+4 : 875 : 
1 B BRB ? 3 fi 1 3 
OB OA 1$ TSTB 1(RO) ; 0878 : 
1 BEQL $$ 3 : 
6€ AO 9A MOVZBL ¥(R) NAME _DESC : Be | : 
04 AE Cc )hCOA 00 MOVL yee ), NAME_DESC+4 : ‘ : 
08 } BRB 3 : 087 3 
6€ 8 - f D 2%: MOVZWL INFILE_DESC, NAME DESC 3 : 
04 AE * CF p MOVL ed lteea tt a NAME _DESC+4 3 : 
7E Al 70 3$: mova (R1) ,~=(SP) > 0898 | ; 
AE 9 PUSHAB NAME_DESC > 0894 | ; 
01 0D PUSHL #1 3 : 
04 ag 0D PUSHL SSAGE_ID ; 0895 | 3 
000000006 00 0 fe CALLS #5, LIBSSIGNAL : 3 

0 RET ; 0902, 
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; Routine Size: 76 bytes, Routine Base: SCODES + 03€1 


; 805 0903 #1 
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SRS AR WN OOOO RN =O 
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BE RIP IR SRI PIRI PRIMORDIA 4 2 0 2 ss 2 9 ss ae tt 


op-198e fa:i8ice — EDELEvECSReSDECEMAIN.059; 1 
ROUTINE condit_handler (signal_array, mechan_array) = 


tee 
! Functional description 


This routine is the condition handler for the main routine. It 
saves the most severe condition as the exit status. 


Calling sequence 
condit handler (signal_array.ra.v, mechan_array.ra.v) 
Input parameters 


signal_array = the address of the signal array for the condition 
mechan_array = the address of the mechanism array for the condition 


Implicit inputs 


The PURGE_CMD flag in DELSCLI_STATUS tells whether a DELETE or a PURGE command 
caused this error. 


i Output parameters 
none 
Implicit outputs 
DELSEXIT_STATUS = Contains the most severe status encountered. 
Routine value 
SS$_RESIGNAL 
Side effects 
none 


BEGIN 
signal_array : REF SBBLOCK; 


BIND 
signame = signal_array (chf$l_sig_name] : SBBLOCK; ! Get the condition name 


1 
: Update the ‘most severe error’ if the current error is more severe. 


IF 
NOT .signame ' If an error signal 
AND ((.signame(sts$v_severity ! and severity is worse 
GTRU .delSexit_sfatus(sts$v_severity)) 


<v | 


Lem ae wy OLIS4=52 Me O76. rage 39 


OR .delSexit_status(sts$v_severity)) ! or no errors yet 


<v 


3 865 THEN 

Fy delSexit_status = .signame; ! then save it for exit 

4 ' 

; i foctty et ity myaber is — that of pELere (147) pen ghis is @ System message, so just resignal. 

; i t this comm ang then signal with the PURGE facility number 

Fy f : nstead of the © DELE E fac lity number (DELETE is the Bt prefix). 

; 87 

; 874 If .si Csts$v_fac_no) EQL 147 ! If facility code says DELETE, 

: Le rae AND “del scli Status Cdel$v_purge_cmd) ! but this 1s a PURGE command, 
: 7 Notonane Csts$v_fac_no] = 148; ! then signal with PURGE instead of DELETE facility 


RETURN $S$_RESIGNAL; Resignal to get message | 
| 


0004 00000 CONDIT_HANDLER: 
WORD 


3; Routine Size: 66 bytes, Routine Base: SCODES + 0420 


. ove fe 3 eee! 
52 0000° CF 9 9002 ROVAB et exit STATUS, R2 : 
50 04 A 4 € ; ADDL NAL _ ARRAY, RO 3 5 
1 E8 C BLBS (Rb) + 095 
51 . 0 EF OOO0F EXTZV ih DEL SEXIT STATUS, R1 : 
1 FD 14 CMP2V : | 
0 83 £9 00018 BBC” OE LSEXIT STATUS + 0961 | 
6 DO iF 1$ MOVL CRO) pr Secsextt érAtys : 0965 
00000093 = &F 02 a0 ¢ 9 2 ogi 2$ CPV #0. 2(R mie? ; 0971 
OA eC A 3 €£ 09 p BBC DELSCLI. TATUS, 3$ + 0972 
02 ad 0c 9 00000094 8F FO 00 INSV i #0 » 2¢R6) > 0974 
0918 8F 3¢ 00 C 3$: MOVZWL #2328, Rb : 0976 
4 00041 RET : 0977 
| 
| 


; 881 0978 #1 


Blige 3 HZ] YMC HT eens weitere | Page, 


<v 


-EXTRN LIBSSIGNAL, LIBSSTOP 


: PSECT SUMMARY ; 
3 Name Bytes Attributes ; 
$ SGLOBALS 4 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
; spits ; NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(0) | : 
: SCODE 1 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; 
: Library Statistics | : 
: eoceeee= Symbols -------- Pages Processing | ; 
: File Total Loaded Percent Mapped Time 3 
: _$25S$DUA28:(SYSLIBISTARLET.L32;1 9776 124 1 581 00:02.5 ; 
: COMMAND QUALIFIERS | 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DELEMAIN/OBJ=OBJ$:DELEMAIN MSRC$:DELEMAIN/UPDATE=(ENHS:DELEMAIN) 
1135 code + 436 data bytes 
24 | 

fn 


: Memory Used: 153 pages 
; fomothekion. teaplere’ 


010 AH-BT13A-SE AL: EQUIPMENT CORPORATION 
VAX/VMS V4.0 


DENTIAL .AND PROPRIETARY 


DIGIT 
CONFI 


